home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 11 / NIKKEI-MAC-CD-VOL-11-1998-03.ISO.7z / NIKKEI-MAC-CD-VOL-11-1998-03.ISO / オンラインソフト / 2.日経MAC超定番 / UltraFind 2.5.3 Full Pack.sit / UltraFind 2.5.3 Full Package / AppleScript™ Examples / UF results to <HTML> < prev    next >
Text File  |  1997-06-21  |  3KB  |  94 lines
  1. -- --------------------------------------------
  2. -- ULTRAFIND > PAGESPINNER > NETSCAPE/IE
  3. -- This example script tell UltraFind to search for files of type "TEXT" 
  4. -- whose name contains "log" (User can change).
  5. -- The results are formatted as HTML and passed to PageSpinner 2.0
  6. -- Each file found is hyperlinked and is clickable/readable in NetScape.
  7. -- --------------------------------------------
  8.  
  9.  
  10.  
  11. tell application "Finder"
  12.     display dialog "Create HTML report for files named:" buttons {"Cancel", "OK"} default answer " log" default button 2
  13.     copy result to x
  14.     set SearchFor to text returned of x
  15.     
  16. end tell
  17.  
  18. set TheFiles to ""
  19.  
  20.  
  21.  
  22.  
  23. tell application "UltraFind 2.5.3"
  24.     clear
  25.     set the text of fileName of its searchRoutine to SearchFor
  26.     set the fileType of its searchRoutine to "TEXT"
  27.     scan
  28. end tell
  29.  
  30. copy the result to numFiles
  31.  
  32. if numFiles is greater than 0 then
  33.     repeat with fileNum from 1 to numFiles
  34.         
  35.         tell application "UltraFind 2.5.3"
  36.             copy (the fileName of fileRecord fileNum) to fName
  37.             copy (the fileCreator of fileRecord fileNum) to fCreator
  38.             copy (the fileType of fileRecord fileNum) to fType
  39.             copy (the accessPath of fileRecord fileNum) to fPath
  40.             copy (the fileSize of fileRecord fileNum) to fSize
  41.             copy (the dateCreated of fileRecord fileNum) to crDate
  42.             copy (the dateModified of fileRecord fileNum) to mdDate
  43.         end tell
  44.         
  45.         -- --------------------------------------------
  46.         -- FORMATTING
  47.         -- In this example the information is formatted for an HTML table
  48.         -- --------------------------------------------
  49.         
  50.         set TheFiles to TheFiles & ﾂ
  51.             "<TR><TD><A HREF=¥"file:///" & fPath & "¥"> " & fName & "</A></TD>" & ﾂ
  52.             "<TD>" & fSize & "</TD><TD>" & mdDate & "</TD>" & ﾂ
  53.             "<TD>" & crDate & "</TD><TD>" & fCreator & "</TD></TR>"
  54.         
  55.     end repeat
  56. end if
  57.  
  58.  
  59. -- --------------------------------------------
  60. -- OUTPUT
  61. -- In this example the information is passed to PageSpinner to create an HTML document
  62. -- you should replace this with the application you want the information output to.
  63. -- --------------------------------------------
  64.  
  65.  
  66. tell application "PageSpinner"
  67.     activate
  68.     make new document
  69.     
  70.     tell document 1
  71.         insert text "<B>UltraFind</B> <!-- ps_include date=¥"long¥" -->ﾂ
  72.         <!-- /ps_include --> - Total files: " & numFiles & ﾂ
  73.             "</B><HR SIZE=¥"2¥" NOSHADE><TABLE WIDTH=468 CELLSPACING=2 CELLPADDING=1 BGCOLOR=¥"#CCFFFF¥">" & ﾂ
  74.             "<TR><TD><I>FileName</I></TD><TD><I>Size</I></TD><TD><I>Modified</I></TD><TD><I>Created</I></TD><TD><I>Creator</I></TD></TR>" & ﾂ
  75.             TheFiles & "</TABLE><HR SIZE=¥"2¥" NOSHADE>"
  76.         deselect
  77.         set name to SearchFor & ".html"
  78.     end tell
  79.     play success sound
  80. end tell
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.